home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / shapeocx / testshap.cab / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-26  |  6.0 KB  |  172 lines
  1. VERSION 5.00
  2. Object = "{582B0747-39C9-11D3-86DA-0080C8D461BD}#5.0#0"; "ShapeX.ocx"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   3420
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5625
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2.375
  14.    ScaleMode       =   5  'Inch
  15.    ScaleWidth      =   3.906
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin ShapeX.ShapeForm ShapeForm1 
  18.       Height          =   3375
  19.       Left            =   0
  20.       TabIndex        =   1
  21.       Top             =   0
  22.       Width           =   5535
  23.       _ExtentX        =   9763
  24.       _ExtentY        =   556
  25.       Picture         =   "Form1.frx":0000
  26.       ScaleHeight     =   3375
  27.       ScaleWidth      =   5535
  28.       TransparentColor=   8946824
  29.       DataSize        =   6592
  30.       DataBuffer      =   "Form1.frx":2B3CA
  31.       Begin ShapeX.ShapeButton ShapeButton2 
  32.          Height          =   465
  33.          Left            =   2955
  34.          TabIndex        =   3
  35.          Top             =   270
  36.          Width           =   450
  37.          _ExtentX        =   794
  38.          _ExtentY        =   820
  39.          Picture         =   "Form1.frx":2CDCB
  40.          DownPicture     =   "Form1.frx":2DA1D
  41.          ScaleWidth      =   30
  42.          ScaleHeight     =   31
  43.          ScaleMode       =   3
  44.          DeltaR          =   9
  45.          DeltaB          =   6
  46.          DeltaG          =   7
  47.          TransparentColor=   8946824
  48.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  49.             Name            =   "MS Sans Serif"
  50.             Size            =   9.75
  51.             Charset         =   0
  52.             Weight          =   700
  53.             Underline       =   0   'False
  54.             Italic          =   0   'False
  55.             Strikethrough   =   0   'False
  56.          EndProperty
  57.          ForeColor       =   0
  58.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  59.             Name            =   "MS Sans Serif"
  60.             Size            =   9.75
  61.             Charset         =   0
  62.             Weight          =   700
  63.             Underline       =   0   'False
  64.             Italic          =   0   'False
  65.             Strikethrough   =   0   'False
  66.          EndProperty
  67.          Caption         =   "  "
  68.          DataSize        =   432
  69.          DataBuffer      =   "Form1.frx":2E66F
  70.       End
  71.       Begin ShapeX.ShapeButton ShapeButton1 
  72.          Height          =   495
  73.          Left            =   2100
  74.          TabIndex        =   2
  75.          Top             =   240
  76.          Width           =   450
  77.          _ExtentX        =   794
  78.          _ExtentY        =   873
  79.          Picture         =   "Form1.frx":2E860
  80.          DownPicture     =   "Form1.frx":2F4B2
  81.          ScaleWidth      =   30
  82.          ScaleHeight     =   33
  83.          ScaleMode       =   3
  84.          DeltaR          =   6
  85.          DeltaB          =   9
  86.          DeltaG          =   9
  87.          TransparentColor=   8946824
  88.          ButtonStyle     =   1
  89.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  90.             Name            =   "MS Sans Serif"
  91.             Size            =   9.75
  92.             Charset         =   0
  93.             Weight          =   700
  94.             Underline       =   0   'False
  95.             Italic          =   0   'False
  96.             Strikethrough   =   0   'False
  97.          EndProperty
  98.          ForeColor       =   0
  99.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  100.             Name            =   "MS Sans Serif"
  101.             Size            =   9.75
  102.             Charset         =   0
  103.             Weight          =   700
  104.             Underline       =   0   'False
  105.             Italic          =   0   'False
  106.             Strikethrough   =   0   'False
  107.          EndProperty
  108.          DataSize        =   448
  109.          DataBuffer      =   "Form1.frx":30104
  110.       End
  111.       Begin VB.Label Label1 
  112.          BackStyle       =   0  'Transparent
  113.          Caption         =   "Click left eye switch to rectangle, click right eye to exit, click crab switch to other region."
  114.          BeginProperty Font 
  115.             Name            =   "MS Sans Serif"
  116.             Size            =   9.75
  117.             Charset         =   0
  118.             Weight          =   400
  119.             Underline       =   0   'False
  120.             Italic          =   0   'False
  121.             Strikethrough   =   0   'False
  122.          EndProperty
  123.          ForeColor       =   &H8000000E&
  124.          Height          =   825
  125.          Left            =   1380
  126.          TabIndex        =   4
  127.          Top             =   1260
  128.          Width           =   3045
  129.       End
  130.    End
  131.    Begin ShapeX.ShapeForm ShapeForm2 
  132.       Height          =   3255
  133.       Left            =   60
  134.       TabIndex        =   0
  135.       ToolTipText     =   "Click me to change a face"
  136.       Top             =   0
  137.       Width           =   5355
  138.       _ExtentX        =   9446
  139.       _ExtentY        =   556
  140.       Picture         =   "Form1.frx":30305
  141.       ScaleHeight     =   3255
  142.       ScaleWidth      =   5355
  143.       DeltaR          =   1
  144.       DeltaG          =   1
  145.       DeltaB          =   1
  146.       Active          =   0   'False
  147.       DataSize        =   13008
  148.       DataBuffer      =   "Form1.frx":3D649
  149.    End
  150. Attribute VB_Name = "Form1"
  151. Attribute VB_GlobalNameSpace = False
  152. Attribute VB_Creatable = False
  153. Attribute VB_PredeclaredId = True
  154. Attribute VB_Exposed = False
  155. 'this is a demo to show how to use ShapeX.ocx.
  156. Option Explicit
  157. Private Sub ShapeButton1_Click()
  158.     ShapeForm1.Active = Not ShapeButton1.Down
  159. End Sub
  160. Private Sub ShapeButton2_Click()
  161.     Unload Me
  162. End Sub
  163. Private Sub ShapeForm1_Click()
  164.     ShapeForm1.SendToBack
  165.     ShapeForm2.Active = True
  166. End Sub
  167. Private Sub ShapeForm2_Click()
  168.     ShapeForm2.SendToBack
  169.     ShapeForm1.Active = True
  170.     ShapeButton1.Down = False
  171. End Sub
  172.